perm filename ROAD1.SAI[1,BGB] blob
sn#001271 filedate 1972-10-22 generic text, type T, neo UTF8
00100 BEGIN "ROAD1"
00200 PRELOAD_WITH
00300 0,0, -23,0, -10,24, -35,24,
00400 313,0, 0,-313, -10,-313, -337,24,
00500 -35,336, -23,336;
00600 REAL ARRAY PXY[1:10,1:2];
00700 PRELOAD_WITH
00800 0, 432.9,
00900 100, 440.45,
01000 200, 448.00,
01100 300, 437.81,
01200
01300 410, 426.60,
01400 460, 421.50,
01500 510, 420.91,
01600
01700 665, 419.09,
01800 715, 418.50,
01900 765, 415.41,
02000
02100 850, 410.17,
02200 950, 404.00,
02300 1050, 412.57,
02400
02500 1340, 437.43,
02600 1440, 446.00,
02700 1540, 440.22,
02800
02900 1790, 425.78,
03000 1890, 420.00,
03100 1990, 427.55,
03200 2060.893,432.9;
03300 REAL ARRAY PLZ [1:20,1:2];
03400 PRELOAD_WITH 5,
03500 '06000001,
03600 '07000000,
03700 '10000003,
03800 '11000004,
03900 '12000000,
04000 '05000002;
04100 INTEGER ARRAY ARCSEG [0:6];
04200 OPEN(1,"DSK",8,0,3,0,0,0);
04300 ENTER(1,"ROAD1.MAP",0);
04400 WORDOUT(1,10);
04500 WORDOUT(1,20);
04600 WORDOUT(1,6);
04700 ARRYOUT(1,PXY[1,1],2*10);
04800 ARRYOUT(1,PLZ[1,1],2*20);
04900 ARRYOUT(1,ARCSEG[0], 7 );
05000 RELEASE(1);
05100 END;